home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1999 May: Tool Chest / Developer CD Series Tool Chest (Apple Computer)(May 1999).iso / Tool Chest / Development Kits / MPW etc / MPW-GM / MPW / Scripts / SetDirectory < prev    next >
Encoding:
Text File  |  1995-04-21  |  932 b   |  38 lines  |  [TEXT/MPS ]
  1. #    SetDirectory - set the default directory
  2. #
  3. #    Usage:
  4. #        SetDirectory directory
  5. #
  6. #    SetDirectory sets the default directory and adds the new default
  7. #    directory to the Directory menu if it is not already present.
  8. #
  9. #
  10. #    Copyright Apple Computer, Inc. 1987 - 1990, 1995
  11. #    All rights reserved.
  12.  
  13. Set Echo 0
  14. Set Exit 0
  15. If {#} != 1  OR  "{1}" == ""
  16.     Echo "### {0} - A directory must be specified." > Dev:StdErr
  17.     Echo "# Usage - {0} directory" > Dev:StdErr
  18.     Exit 1
  19. Else
  20.     Directory "{1}"
  21.     If {Status} != 0
  22.         Exit 2
  23.     End
  24.     Set directory `Directory`
  25.  
  26.     if !`Evaluate "{directory}" =~ /?«0,64»/`  # longer that 64 bytes?
  27.         Unset ®1 ; Unset ®2
  28.         (Evaluate "{directory}" =~ /(?«30»)®1≈(?«33»)®2/ ) ∑ dev:null
  29.         Set menuname    "{®1}"'…'"{®2}"
  30.     else
  31.         Set menuname "{directory}"
  32.     end
  33.  
  34.     AddMenu -asis Directory "{menuname}" ∂
  35.         'Directory "'"{directory}"'" > "{ShellDirectory}"MPW.Errors ≥ Dev:StdOut ∂
  36.           || Alert < "{ShellDirectory}"MPW.Errors'
  37. End
  38.